

Dim conn, rst, SQL_Table



Set conn = CreateObject("ADODB.Connection")
Set rst = CreateObject("ADODB.Recordset")


conn.Open "Provider=MSDASQL;Initial Catalog=" & SmartTags("alpdatabase") & ";DSN="&Database_Name&"" 




SQL_Table = "CREATE TABLE "& SmartTags("alptablename") & " (Nr SMALLINT, " _
            & SmartTags("alp_1") & " CHAR(30), " & SmartTags("alp_2") & " SMALLINT, " _
            & SmartTags("alp_3") & " SMALLINT)"


Set rst = conn.Execute(SQL_Table)




conn.close

Set rst = Nothing
Set conn = Nothing

End Sub